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Radio Shack's Tiny Pascal is a cassette-based system for creating, editing, 
compiling and executing Pascal programs. Tiny Pascal is a subset of the 
standard Pascal language. 

This manual summarizes Tiny Pascal and explains how to use it on the Model I 
Level II TRS-80. 
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1/ Overview of the System 

Tiny Pascal is a complete, self-contained operating system for creating, compiling, 
running , saving and loading Pascal programs for the TRS-80. Once you have loaded 
Tiny Pascal , you can use all the "subsystems": 

Monitor: Provides run-time support, checks for errors, and provides the 
necessary utilities to save and load programs to and from cassette tape. 

Compiler: Compiles your PASCAL source program into P-code, ready to be 
executed. The compiler also checks for syntax errors. 

Editor: Lets you create or modify Tiny Pascal source programs . 

All three sub-systems are loaded simultaneously, and are always present in RAM, 
unless you choose to overwrite portions to free memory space. 

The minimal system requirements are: LEVFX II, 16 K RAM. You will need at 
least 32K to examine the Compiler source. (See Chapter 6.) 



Overview of this Manual 

Chapters 2 through 4 of this manual discuss in detail the three sub-systems, what 
they do, and how to use them. Chapter 5 deals with the specific aspects, limitations 
and enhancements to Tiny Pascal . Then follows a chapter on Getting Started to help 
you gel through the first time you bring Tiny Pascal up. Finally, you will find the 
error codes, syntax diagrams. listings of sample programs, and other useful 
information. 



) 



2/ The Monitor 



All operations make at least some use of the Monitor, so we will begin our 
description of the Tiny Pascal system with it. The Monitor provides run-time 
support to the entire system, as well as providing you with a means of 
saving/loading your source programs and P-code (compiled) programs via cassette 
tape. From the Monitor you also give the command to compile a program, or to run 
that program once it has been compiled. You also invoke the Editor from the 
Monitor. 



Monitor Commands < 

E Edit old source file or create a new one. 

C Compile source program into P-code, ready to be executed. 

P-code is stored alter source in RAM . 
01- P Compile source, but do N()Tgenerate£:a)d,e (useful for checking 

for syntax errors) 
Of'- S Compile source, and overwrite the source program with P-code 

(used when you have very large programs). You will have to 

reload or retype the source program if you want to edit it later. 
R Run the compiled program. 

R/ - C Run the compiled program and overwrite the Editor and the 

Compiler. You will have to reload the Pascal system if you want to 

edit or compile a program later. 

LS filename Load source program from cassette . 
LP filename Load P-code program from cassette . 

\NSfilename Save source program to cassette . 
\NPfilename Save P-code program to cassette . 

Note that you may choose to overwrite sections of the Tiny Pascal system if you 
need the space for a large program. However, you must remember that the 
overwritten sections are gone and you must re-load the entire system if you are to 
use them again. 

AjfUe name can be at most six characters long. When loading a program, either in 
source or P-code format, the file name must be entered exactly as it was saved on 
tape. That is, when loading the Tiny Pascal system or when reloading a program 
which you have saved, you must be sure to use the correct and complete name. 

If you accidently type in the wrong file name when requesting a load, the Tiny 
Pascal system may never return control to the keyboard and you will have to reset 
and reload the entire system again. Also, there is no way to find out the names of 
files on tape, so you must remember exactly what you called the file when you 
recorded it. 



3/ The Editor 



The Editor provided with your Tiny Pascal package enables you to create and 
modify source programs. 

The Pascal Editor is line oriented, but, unlike BASIC, does not use line numbers 
since they are not used in the Pascal language. The maximum number of lines of 
text that you can have is 600, and the maximum line length is 130 characters. 

All Editor commands are single characters; some may have numeric arguments 
following them, or a character string. In our discussion of the Editor, xx refers to 
integer numbers (1-999), and string refers to a string. Each command ends with a 
carriage return ((ENJER) on your TRS-80 keyboard). Invalid commands are flagged 
with the message "ILLEGAL'. 

The line pointer always points to the line most recently displayed, modified or 
inserted. After a Delete command, the line pointer is moved up one line. When you 
first load the Tiny Pascal system,^sainpleprogram is Joadedjn, too- Thus, when 
you type "E" to enter edit mode, afileisal ready there. You wilTsee a ">". This is 
the prompt from the editor that lets you know that it is waiting for a command (not 
text). The commands are listed below. 

To erase a source program, use the "D*" command. After a D*\ the editor will 
automatically put you into Insert mode and wait for text. 



Editor Commands 

Note: ' * ' means entirely or "all the way" : 

•EBB) Acarriageretunion^^ mode 

Prints the current line 

Prints xx lines starting from current line 



P 

Pxx 

P* 



U 

Uxx 

U* 



Prints entire file 

Moves up one line 
Moves up.v.v lines 
Moves up to top or first line of file 



Editor commands, continued 

N Moves line pointer to next line (down) 

N* x Moves line pointer down. v.v lines 

N* Moves line pointer to last line of file 

D Deletes current line 

Dx * Deletes xv lines starting at current line 

D * Deletes entire file. This will automatically put you into Insert 

mode and wait for text . 

I Enters Insert mode. Begins inserting lines^ajtercurrent line 

pointer. A ' ?' is displayed to prompt you . Pre^(ENTER) at the 
beginning of a line to exit from Insert mode. 

FJsfr/ng Replaces the current line by String 

X Extends line. The current line is displayed and the cursor is 

positioned to the end of t he line, allowing characters to be 
appended. Press (ENTER) to save changes and return to 
the Editor. 

S Displays Status: Number of lines, file location, position of line 

pointer. 

9 . _ Quits and returns to the Tiny Pascal Monitor 

The Editor also recognizes two special keys: the back arrow © for backspace, 
and the right arrow @ for tab, which is three spaces. These two keys may be 
used at any time forediting a command or input file . © over a tab moves the 
cursor three spaces back on the display and erases the tab. 

To illustrate: If you want to enter a program, you would type '•£" from the 
Monitor, then you woul d type" !" for Insert. You then can enter text. TostQP- 
entering text, you press (ENTER) on an empty line. " T " 

If a "MEMORY FULL" error occurs while editing or inserting, the source file is too 
big. You may be able to pack in the program by eliminating extra spaces and tabs. 

You should experiment with the editor for awhile to make sure that you completely 
understand its operation. 



4/ The Compiler 



A compiler is a program that translates the statements of a high-level language into 
an equivalent program of machine-readable form. Tiny Pascal translates the 
high-level source program into an intermediate file called P-code. The P-code is 
then interpreted, using the run-time Monitor for support. The result is a program 
which executes atjeastfour ^ times Taster , and up to eight times faster than BASIC! 

Tiny Pascal is a subset of standard Pascal. The syntax is essentially identical to the 
full language. Syntax diagrams have been included in Appendix C for those who 
are just now learning the language. 

This manual is not an instructional text on Pascal programming, but rather an 
explanation of the limits and special features of Tiny Pascal. However, we will 
review some essential points in the next section. 

For those who need a more thorough introduction, we recommend the following: 

Programming in Pascal; Grogono. Addison-Wesley , 1 978 

Pascal: User Manual and Report; Jensen and Wirth. Springer- Verlag, 1974 

A Primer on Pascal; Conway, Gries, and Zimmerman. Winthrop Publishers! 1976 

Pascal, An Introduction to Methodical Programming ;VJ . Findlay and D.A. Watt. 
Computer Science Press, 1978 



Compiler Specifics 

Note: See the Index for a complete list of Pascal keywords . 

1 Maximum number of procedure or function parameters is 15; maximum 
number of procedure nests is seven levels; the symbol table is restricted to 75 
entries (200 for big version). 

2. ": = " is used for assignment and " = " is used for equality. They are not 
interchangeable! 

3. ";" is used to separate statements, not to end statements. Thus the last ";" in 
a compound statement: 

BEGIN statement 

statement; 

IF exp THEN exp ELSE exp; 

statement; 
END 

is not necessary. (It is, however, allowed since a Pascal statement can be a null .) 
Note also the absence of " ; " before an ELSE or an end in a CASE statement . 



4. Expressions may be either arithmetic or logical (Boolean). Thus, the following 
are legal: 

A:=B>C; 



IFA + BTHEN... 

Note: The Boolean operator OR has the same precedence as the arithmetic 
operators " + " and " - ". AND has the same precedence as "*" and 1)1 v, etc. 
It is important to remember that OR and AND have precedence over ' k = " , " < ' ' 
etc. , thus the need for brackets at times as shown below: 

IF(A<10)AND(A>5)THEN... 

The statement: 
IFA<10AND(A>5)THEN... 

Would be parsed (analyzed) as: 
IFA<(10AND(A>5))THEN... 

Thus producing an unintended result. 

There are some context-sensitive rules and meanings that cannot be inferred from 
the syntax diagrams, and may be particujar to this implementation: 

5. FortheTRS-80, "("and")" are used instead of "["and "|". 

6. Id^njyfiejjjames muststart with a letter and may be followed with letters or 
digits, but onlythe first four charactersjuj£signifj,c^J. However, reserved 
words must be typed iri~fuIT. 

7. Identifiers must be declared before used. Identifiers can be declared twice, 
but only the last one is used. Formal parameters of a procedure need not (and 
should not) be declared again inside the procedure. 

8. Parameters are passed to procedures or functions by value, i.e. a copy of the 
value of the parameter as defined before the call. 

9. The scope rules for identifiers are the same ones used by any block-structure 
language. The scope of a variable is the procedure that contains it. An inner 
procedure can use a variable defined in an outer procedure. 

10. The only data types Tiny Pascal supports are integers and one-dimensional 
Integer arrays. The integers are 16-bit signed. The arrays start at 0. Arrays are 
not checked for subscript-out-of-range at runtime. 
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11. Built-in functions: 
Function 

ADIVB 

AMODB 

ASHLB JW 

ASHRB 



Meaning 

Truncated Integer division: 27 DIV 5 = 5 

A- (ADIVB)*B:27MOD5 = 2 

I 
Left Shift A by B: 27 SHL^ 54 

BgM Shjft A by B : 27 SHR^ =13 



The built-in array MEM canheused to read to (if it appears in the left side of an 
assignment)or from (if it appears in an expression) a specified memory 
location, such as: 

A : = MEM (24467) +3; (* READ FROM MEMORY*) 
MEM (T) : = 0; ('WRITE TO MEMORY*) 

A second form of the MEM function is MEMW. This enables a Iwo^bxtejvqrd to 
be read to or from memory using the same convention as for MEM. Note: The 
low order byte comes first, in accordance with INTEL convention. 

1 2 . Hex ijconstants are prefixed by " % ' \ e . g . , %2A00 

13 - SUiiig^areenclosedby single quotes ('). not double quotes ("). When a string 
appears in an expression or as a CASE label, it has the value equal to the ASCII 
value of the first character of the string. When a string appears in the write 
statement, the entire string would be output. For example: 

X:= ABCD' 

X would equal 65 (ASCII "A"). 

1 4 . The RKA|)jajn^ , not 1 ine-oriented . 

More than one character can be input or output with a single statement. 
Decimal numbers o.rhe x n u m be rs c a n be re ad jn from the keyboard by a " # " 
(decimal) or "9T' (hex)afterthe variable in the READ statement. SimTlariyTa" 
decimal integer can be prinTeTonlhTmltput device by following the 
expression with the appropriate *#' or '%' for hex. 

READ(A,B,C, l#,J%) 
This would READ three characters, a decimal number, and a hex number. 

A:- 65 

WRITE ('HELLO?#',A, #', A#, '#', A%) 

would print: 

HELLO? A 65 0041 
Note: '#" represents a blank space. It is used only where necessary for illustration. 



15. Since the READ is character-oriented, it is necessary to terminate an integer 
input by a non-integer character (such as (ENTER) or (SPACEBAR) ) . To input a 
hex jumber , four digits must be typed . -_—-—--. 

16. To write on a new line, it is necessary to output the ASCII code for carriage 
return/line-feed to the output device. That is, you must manually insert a 
carriage return/line feed. For the TRS-80 this can be accomplished by outputting 
the carriage return alone . (The trs-80 software does the rest . ) For example: 

WRITE (THIS IS A TEST, 13) 
Note: 13 is an ASCII "carriage return". 

17. An expression in the IF, WHILE, and REPEAT statements is said to fulfill the 
condition if the least significant bit is one. This is equivalent to testing whether 
the expression is odd. Thus after: 

IFXTHENA:= 1ELSEA:= 100 

A would have the value of one if X is odd, and 100 if x is even. 

18. The relational operators (" = "," = >", etc.) always produce a value of 
zero or one. Thus after: 

A:=X = 5; 

A equals one if X equals five; otherwise A equals zero. 

19. Comments are opened by "(*" and closed by "*)". 



20. Here is a list of built-in functions and procedures: 
ABS(exp) Returns the absolute value ot'exp 



CALL(exp) 



A user-defined machine language subroutine where ex^ 
is an address to the routine . 



Subroutines must conform to the following: 

1). Save all registers upon entry. 

2). Restore all registers before exiting. 

3). Return from the subroutine in the following fashion: 

INCDE 
1NCDE 
RET 



INKEY 

INP(exp) 
MOVE(6,a,n) 

CXJJP(a,x) 

ij\< ;''■''' "■ • , 

PLOT(x,y,a) 

POINT(x,y) 
SQR(exp) 



Inputs from the keyboard, used like this- A • = 

Inkey 

Inputs port e.xp, used like this: A = INP(exp) 

Move a block of memory of n bytes from address a 
to address/?. 

Outputs a to port x 

Hots graphics to screen, using the.r-y coordinates. 
If a is odd then plot is "set" . if a is even then plot is 
"reset" 

Just like BASIC: Returns one if the point is set, zero if 
not set. 



Returns square root of exp. 

21. The screen control characters are the same as TRS-80BAS1C For example 
use write (28,3 1) to clear the screen . 



5/ Starting Instructions 



In this section, we will go step-by-step from loading the tape the first time, to 
running your first program. Side One of your tape comes with three sample 
programs: the first is loaded with the system, the second is HILBER and the third is 
BLOCK . Side Two contains the big 32/48K compiler and source to Tiny Pascal , 
PAS32KandCOMPSl respectively. 



Start-Up 

1 . Turn on your machine. When asked for memory SIZE, respond by pressing 

(mrm . 

2. Type "SYSTEM" (|NIfR), to reach system level, You will see "*?" 

3. Make sure that your Tiny Pascal tape is at the start, and type PASCAL, then 
(ENTER) and put the recorder in the Play mode . 

4. The tape will begin to load, and the asterisk will blink every four seconds. The 
entire load will take about three minutes. ,v 




5. Once the tape has loaded, press 'Vl' jjNTER ). At this point you should receive 
the opening message: 

TINY PASCAL V-X.Y 

where X is the version and Y the release number. 

6. At this point you have successfully loaded the entire Tiny Pascal operating 
system, and can proceed to the next section below. If you did not get this far try 
loading the tape again. Try various volume settings. 



ur> 
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Creating a Program 



1 . From the Monitor, type "E'<. This will place you in the Editor. You will see a set 
of statistics on the current file. A sample program is loaded with Tiny Pascal' If 
this is your very first try, then skip ahead to step 5, otherwise proceed . ' " 
2. To delete the sample program which is always loaded with the system you 

ZllZV^ d '7 CO r an± "°*"- RemCmber ' '°*' wiH de,ete a,! «"« and 
put you in the Insert mode . 

At this point you may enter a program . 

Once your program is entered, you may exit the Insert mode by pressing CENTER) 
at the start of a line. This puts you back in the Editor command moT 

5. To return to the Monitor, to compile, etc., you press CE for "Quit". 



3. 

4. 



Compiling, Running, Saving/Loading 
Program 



a 



1 . Normally t o comp,le a source program , you press (T) (UTER) from the 

Monitor. This creates P-code. If you have any syntax errors, they will show up 
here If you have syntax errors, the error list in Chapter 7 will tell vou what they 
are. You should then go back and edit the existing source file to correct the 
syntax errors before re-compiling. 

Note: Other options for compilation are discussed on the next page and on page 2. 

2. Once you have successfullycompilcd the program, you may run it from the 
Monitor by typing: R (EHUD from the Monitor. 

3 ' T coZll Th g , ram : ° r ^^ y ° U may USe ,he a PP™P riate Monitor 
comma nds . 1 hat is, "wsfilename" to save the source file (program text), or 

pro^m Tin !° " thC ^° de fi,C - ° r ' 3t thiS P ° int ' ^ U C0U,d "»« -w 
program, or load a previously stored program from tape. 

4. Remember, you must re-compile a program if you make a change in it! 

5. To load a previously stored program, you would use either the "is filename" to 
load he source (text) file , or the "u> filename* ' to load the P-code (object ode) 
file. If you forget and accidentally try to load an object file as a source file or 
vice versa, errors will result and you may have to reload the Tiny Pascal system 
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Special Notes 

The (BREAK) key causes a pause in program execution; press any other key to 
resume. If you press (BREAK) twice in a row, you will terminate the run, and return 
to the Tiny Pascal monitor. 

Once a program has been compiled, only the P-code (that is the compiled program) 
need be loaded for execution . In other words , it is not necessary to compile before 
each execution if you have saved the P-code on tape. 

If an error "1001" occurs during compilation, there is not enough memory. You 
should try using "C/-S". Be sure to save the source first! 

When a "MEMORY FULL" error occurs while running the program, either cut down 
your array size or try using the "R/-C" option. Be sure to save the source first ! 

We know that you will enjoy using Tiny Pascal, and recommend that you play with 
it a while just to get the hang of it and to become familiar with all its features. 
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6/ Using the 32I^Tiny Pascal 



On Side Two of your tape is an expanded Tiny Pascal compiler. That is, it can 
handle larger programs. You will need at least 32K RAM to use it. It is exactly the 
same as the 16K version, except that it will use all the memory that you have in your 
machine. 

To use it, simply follow the directions in Chapter 5, for starting Tiny Pascal, except 
substitute "PAS32K" for l 'PASCAL' ' . The source to the compiler is immediately after 
"PAS32K" on Side Two. It is called; "COMPS 1". To load this file simply type: "LS 
COMPS 1". You can then examine the source to the compiler. You do not need to do 
this to run the 32K version; it is for your interest only. You can use it to study the 
design and exact implementation of Tiny Pascal. Thespurce to Tfnyj^cjiis. 
written in Tiny Pascal and should provide hours of enjoyment. 

Note: Programs are not interchangeable between the two compilers. That is, a 
program created using the 32/48 K compiler cannot be used with the normal 
;i compiler, and vice-versa. 
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II Error Codes 



1 


Error In Simple Type 


2 


Identifier Expected 


3 


"Program" Expected 


4 


")" Expected 


5 


":" Expected 


6 


Illegal Symbol 


7 


Error In Parameter List 


8 


"Of" Expected 


9 


"(" Expected 


10 


Error In Type 


11 


"(" Expected 


12 


")" Expected 


13 


End Expected 


14 


";" Expected 


15 


Integer Expected 


16 


" = " Expected 


17 


"Begin" Expected 


18 


Error In Declaration Part 


19 


Error In Field-List 


20 


"," Expected 


21 


"*" Expected 


50 


Error In Constant 


51 


": = " Expected 


52 


"Then" Expected 


53 


"Until" Expected 


54 


"Do" Expected 


55 


"To'V'Downto" Expected 


56 


"If" Expected 


57 


"File" Expected 


58 


Error In Factor 


59 


Error In Variable 



101 : Identifier Declared Twice 

102: Low Bound Exceeds High Bound 

103: Identifier Is Not Of Appr. Class 

1 04: Identifier Not Declared 

105: Sign Not Allowed 

106: Number Expected 

1 07: Incompatible Subrange Types 

1 08: File Not Allowed Here 

109: Type Must Not Be Real 

1 1 0: Tagfield Type Must Be Scalar 



14 






111: Incompatible With Tagfield Type 

112: Index Type Must Not Be Real 

113: Index Type Must Be Scalar 

114: Base Type Must Not Be Real 

115: Base Type Must Be Scalar 

1 1 6: Error In Type Of Standard Procedure Parameter 

117: Unsatisfied Forward Reference 

118: Forward Reference Type Identifier In Variable Declaration 

119: Forward Declared; Repetition Not Allowed 

1 20: Function Result Type Must Be Scalar 

121: File Value Parameter Not Allowed 

1 22: Forward Declared Function, Repetition Not Allowed 

1 23: Missing Result Type In Function Declaration 

124: F-Format For Real Only 

1 25: Error In Type Of Standard Function Parameter 

1 26: Number Of Parameters Does Not Agree With Declaration 

1 27: Illegal Parameter Substitution 

1 28: Result Type Of Parameter Function Does Not Agree With Declaration 

129: Type Conflict Of Operands 

130: Expression Is Not Of Set Type 

131: Tests On Equality Allowed Only 

132: Strict Inclusion Not Allowed 

133: File Comparision Not Allowed 

134: Illegal Type Of Operand 

135: Type Of Operand Must Be Boolean 

136: Set Element Type Must Be Scalar 

1 37: Set Element Types Not Compatible 

138: Type Of Variable Is Not Array 

1 39: Index Type Is Not Compatible With Declaration 

140: Type Of Variable Is Not Record 

141 : Type Of Variable Must Be File Or Pointer 

1 42: Illegal Parameter Substitution 

1 43: Illegal Type Of Loop Control Variable 

144: Illegal Type Of Expression 

145: Type Conflict 

146: Assignment Of Files Not Allowed 

1 47: Label Type Incompatible With Selecting Expression 

148: Subrange Bounds Must Be Scalar 

149: Index Type Must Not Be Integer 

1 50: Assignment To Standard Function Is Not Allowed 

151: Assignment To Formal Function Is Not Allowed 

152: No Such Field In This Record 

153: Type Error In Read 

1 54: Actual Parameter Must Be A Variable 

1 55: Control Variable Must Be Neither Formal Nor Non-Local 

1 56: Multidefined Case Label 

157: Too Many Cases In Case Statement 

1 58: Missing Corresponding Variant Declaration 
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1 59: Real Or String Tagfields Not Allowed 

1 60: Previous Declaration Was Not Forward 

1 61 : Again Forward Declared 

1 62: Parameter Size Must Be Constant 

1 63: Missing Variant In Declaration 

1 64: Substitution of standard Proc/Func Not Allowed 

165: Multidefined Label 

166: Multideclared Label 

167: Undeclared Label 

168: Undefined Label 

169: Error In Base Set 

1 70: Value Parameter Expected 

171: Standard File Was Redeclared 

1 72: Undeclared External File 

173: (Not Relevant) 

1 74: Pascal Procedure Or Function Expected 

175: Missing Input File 

176: Missing Output File 



201 : Error In Real Constant: Digit Expected 
202: String Constant Must Not Exceed Source Line 
203: Integer Constant Exceeds Range 
204: (Not Relevant) 



250: Too Many Nested Scopes Of Identifiers 

251 : Too Many Nested Procedures And/Or Functions 

252: Too Many Forward References Or Procedure Entries 

253: Procedure Too Long 

254: Too Many Long Constants In This Procedure 

255: Too Many Errors In This Source Line 

256: Too Many External References 

257: Too Many Externals 

258: Too Many Local Files 

259: Expression Too Complicated 



300: Division By Zero 

301: No Case Provided For This Value 

302: Index Expression Out Of Bounds 

303: Value To Be Assigned Is Out Of Bounds 

304: Element Expression Out Of Range 



398: Implementation Restriction 

399: Variable Dimension Arrays Not Implemented 
1000: '.'Missing 
1001: Out Of Memory 
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8/ Useful Calls and Addresses 

HEX 

ADDRESS FUNCTION 

41 80 Starting address of user source program 

41 82 Ending address of user source program 

4184 Start of P-Code 

4186 EndofP-Code 

4188 Address of editor 

41 8A Address of compiler 

41 8C Start address of user source program (again) 

41 8E Address of runtime stack 

4190 Ending address of runtime stack 

41 92 End of memory address (7FFF for 1 6K) 

4194 Monitor entry point 

41 96 Address of program currently executing 

4198 Complement of contents of 41 8E 

41 9A Overflow message flag — default 

41 A0 Call address: console in (waits for key press) 

41 A2 Call address: console out 

41 A4 Call address: Inkey (input from keyboard, does not wait 
for key press, i.e. returns at once.) 
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9/ The Rules to blockade 



The sample program BLOCKADE (called BLOCK) is loaded with the Tiny Pascal 
system. The rules are the same as the amusement hall versions. Each player tries to 
box in the other. 



The game accepts commands from two players simultaneously. Each player 
his/her man using the keys illustrated below: 



moves 



Left-Side Player 

CD- up 
left -CAD CE)_ right 

00 — down 



Right-Side Player 

CF)- up 

left -CE) ©-right 

(7) — down 



The speed is user selected between one and ten, with one being the fastest and ten 
the slowest. Three to four is about right for beginners. 
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Appendix A/ Memory Maps 



16K Version 



Reserved Ram For 
Interpreter & Monitor 

Entry Points Table 

System Control Block 

I/O Routines 

Interpreter; 
Runtime Routines 

Monitor 

User Memory For 
Source & P-Code 
(4.5) 

Runtime Stack For 
Editor or Compiler 
(1.75) 

Editor P-Code 

Compiler Table 

Compiler P-Code 

Assumed end of memory 





32K/48K Version 


4060 


Reserved Ram For 
Interpreter & Monitor 


4100 


Entry Points Table 


4180 


System Control Block 


41 A0 


I/O Routines 


41 E0 


Interpreter; 
Runtime Routines 


473A 


Monitor 


4990 


Runtime Stack For 
Editor or Compiler 
(3.25) 


5690 


Editor P-Code 
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Appendix B / Sample Programs 



<* SAMPLE TINV PASCAL PROGRAM BV H. VUEN *> 
VAR XO, VG, X, V, K, F : INTEGER.; 
BEGIN 

X0: =13000; V8: =18800; F:=ll; 
REPEAT X : =X8; V : =V0; WR I TE < 15, 28, 31 > ; 
FOR K:=l TO 1000 DO BEGIN 

X:=X+V DIV 4; V : =V~X DIV 5; 
PLOT<X SHR 8, V SHR 8, 1> END; 
X0:=X0+X0 DIV F; V8 : =V0+V0 DIV F; 
F:=F+F DIV 6 
UNTIL F>78; WRITE<28, 31, "THE SHON IS OVERO 
END. 
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■,*PLOT HILBERT CURVES OF ORDERS 1 TO N*> 
CONST N=4; H0=32; 
VflR I, H, X, V, XO, V6, U, V : INTEGER.; 
PROC MOVE; 
VflR I, J: INTEGER; 
FUNC MItKfl, B>.; 

BEGIN IF fl>B THEN MIN:=B ELSE MIN:=A END. 
FUNC MAX<A, BX; 

BEGIN IF fl<B THEN MAX : =B ELSE MAX : =A END; 
BEG I N FOR I : =M I N < X, U > T MAX < X, U > DO 
FOR J:=MIN<V, V> TO MAX<V, V> DO 

PLOT<I, J, IX 
Ij : =Xj V : =V 
END.; 



PROC P'iiTVP, I>.; 

BEGIN IF I>@ THEN 
CASE TVP OF 
1 : BEG I N P < 4, I -1 > .; X : =X-H.; MOVE; 

P-::i, I-l>.; V:=V-H; MOVE; 

PCI, I-l>; X:=X+H; MOVE; 

P'::2, I-l> END; 
2: BEGIN P<3, I-1X; V : =V+H; MOVE; 

P<2, I-l>; X:=X+H; MOVE; 

P < 2, I -1 > ; 't' : =V-H; MOVE; 

P<1, I-l> END; 
3 : BEG I N P < 2, I -1 > ; X : =X+H; MOVE; 



=V+H; MOVE; 
=X-H; MOVE; 



P<3, I-1X; V 
P<3, I-l>; X 
P<4, I-l> END; 
BEGIN P<1, I-l>; V:=V-H; MOVE; 
P<4, 1-1); X:=X-H; MOVE; 
P<4, I -IX: V:=V+H; MOVE; 
P<3, I-l> END 
END 
END; 



BEGIN 0+-MAIN+) 

WRITE<15, 28, 31, 13, •' HILBERT CURVES'); 
I : =G; H : =HO; XO : =H D I V 2; VO : =XO; 
REPEAT I: =1+1; H : =H DIV 2; 

X0:=XO+H DIV 2; V6 : =V@+H DIV 2; 
X : =XO+ < I -1 > +32; V : =V0+1O; U : =X; V : = V ; 
P<1, I> 
UNTIL I=N 
END. 
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<*BLOCKflDE. BV K. M. CHUNG. 4/26/79*:. 
VRR I, J, SPEED, ABORT, BLNK : INTEGER; 

SCORE, MRRK, MOVE, CURSOR : RRRRV < 1 > OF I NTEGER : 
PROC PSCORE; 

BEG I N WR I TE < SCORE < > # > .; 

MEMW < K402S > : ="3FFE; < *SET CI IRSnp* :. 
WRITE <SCQRE<1>#> END; 

PROC BLINK; 

VRR T, K, DELRV : INTEGER; 

BEG IN T : =CURSOR ( I > -MOVE < I > ; 
FOR K:=l TO 38 DO BEGIN 
FOR DELRV : =1 TO 188 DO; 
I F MEMW ( T > =BLNK THEN MEMN < T > : =MRRK < I :• 

ELSE MEMW<T>:=BLNK 
END 
END; 



BEG I N WR I TE < ' SPEED < 1-18 > ■' > ; 

RERD<SPEED#>; SPEED : =SPEED*18; 

MARK < > : = ' * •' + •'* •' SHL 8; NRRK < 1 > • = •' < ' + - > - SHL 8 ; 
BLNK:=-' -■ + •- -'SHL 8; 
SCORE < > : =8; SCORE < 1 > : =8; 

REPERT WRITE (15, 28, 31); OTURN OFF CURSOR, CLEAR Sf'REEN*^ 
FOR I: =9 TO 117 DO BEGIN 

PLOT ( 1,1,1) ; PLOT < 1 , 45, 1 > END; 
FOR I:=l TO 45 DO BEGIN 

PLOT < 9, 1 , 1 > ; PLOT < 18, 1 , 1 > ; 
PLOT < 116, 1 , 1 > ; PLOT < 117, 1 , 1 > END; 
C U F: S O R ( 8 > : = 'i 2 C 8 8 +64*4+12 ; 
C U R S R < 1 > : = 'i 4 8 8 8 - 6 4 * 4 - 1 6 ; 

FOR .J: =8 TO 1 DO MEMW < CURSOR < . J V; • =MRRK':'.T:. : 
MOVE < 8 > : =64; MOVE < 1 > : =~64; 
T : <=!; RBORT : =8; PSCORE; 

REPERT UNTIL INKEVOO; <*HIT KEV TO STRRT*'. 
REPERT I :=1-I; 

FOR J:=l TO SPEED DO 
CRSE INKEV OF 

-' W - : MOVE <. 8 ) : =-64; -' >i ' : MOVE < 8 > : =64 j 
' D - : MOVE < 8 > : =2; -' R - : MOVE < 8 > : =-2 
•" -' : MOVE < 1 > : =-64; •' . ' : MOVE < 1 > : =64 
" ; -' : MOVE < 1 ;• : =2; •' K ' : MOVE < 1 > • =~2 
END; 
CURSOR < I > : =CURSOR< I >+MOVE< I >; 

I F MEMW < CURSOR < I > > =BLNK THEN MEMW < CURSOR < I > V =MRRK < I 
ELSE BEGIN SCORE < 1--I >; =SCGRE':1-I J+l; 
ABORT :=1; BLINK END 
UNTIL RBORT 
UNTIL SC0RE<1-I>>=18 
END. 
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Appendix C/ Syntax Diagrams 
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♦ SIMPLE EXPRESSION 
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